00010		SUBROUTINE SMOOTH(JQ)
00020		COMMON/ED/KX,NEXT,NN,NX,NY,J/LL/L
00040		COMMON /RC/MCLEF(200),IST(4000),MFILL(200)
00060		COMMON /RZ/RSZ,IPLT,RJB,CENTR
00100		DIMENSION BUF2(700)
00110		DATA INC/4/
00200		COMMON X(100),Y(100),N,X1(512),Y1(512),S(100),K
00210		JY=2
00300		CALL DPYSET(3,BUF2,1000)
00310	7	JX=J
00320	8	KX=0
00400		DO 1 K=JY,J
00600		CALL UNPACK(K,JA,JB,MCLEF)
00602		IF(L.EQ.3.AND.K.GT.JY)GO TO 6
00603	C  JUMP WHEN INVIS. VECT.
00605		KX=KX+1
00610		X(KX)=(JA+RJB)*RSZ
00620	1	Y(KX)=(JB+CENTR)*RSZ
00630	9	X(KX+1)=999.
01300	4	N=KX
01900		CALL SS
01950		IF(JQ.NE.' ')CALL HYDPOG(1)
02100		CALL AIVECT(IFIX(X1(1)),IFIX(Y1(1)))
02200		DO 5 K=2,512,INC
02300	5	CALL AVECT(IFIX(X1(K)),IFIX(Y1(K)))
02400		CALL DPYOUT(3)
02405		IF(JX.NE.J)GO TO 7
02406		CALL SETPOG(1)
02408		RETURN
02410	6	JY=K
02420		JX=JY
02430		GO TO 9
02600		END